home *** CD-ROM | disk | FTP | other *** search
NeXT TypedStream Data | 1995-06-12 | 3.8 KB | 159 lines |
- typedstream
- NXImage
- Object
- NXEPSImageRep
- NXImageRep
- iisssss
- [3702c]%!PS-Adobe-2.0 EPSF-1.2
- %%Title:
- %%Creator: Draw
- %%CreationDate: Sun Jul 8 23:58:04 1990
- %%For: jis
- %%DocumentFonts: (atend)
- %%Pages: 0 1
- %%BoundingBox: 87.000000 386.000000 117.000000 455.000000
- %%EndComments
- %%BeginFile: /usr/lib/NextStep//printPackage1.0.ps
- %!PSNext-1.0
- %%Title: Printing Package
- %%Copyright 1988, NeXT, Inc.
- %%CreationDate: 23Feb88
- %%PackageName: printPackage0.8.37
- %%PackageDescription: Routines to support printing
- %%EndComments
- %debugging aids
- %/clip {gsave 0.9 setgray 0.5 setlinewidth stroke grestore} def
- % simulations of DPS ops
- /__NXbdef {1 index where {pop pop pop} {bind def} ifelse} bind def
- /__NXUserObjectList 10 array __NXbdef
- /defineuserobject {
- exch
- dup 1 add
- dup __NXUserObjectList length gt {
- array dup 0 __NXUserObjectList putinterval
- /__NXUserObjectList exch def
- }
- { pop }
- ifelse
- __NXUserObjectList exch 3 -1 roll put
- } __NXbdef
- /execuserobject {
- __NXUserObjectList exch get exec
- } __NXbdef
- /__NXDoRectOp {
- 1 index type /arraytype eq {
- exch aload length
- dup 2 add -1 roll exch
- 4 idiv
- }
- { 1 }
- ifelse
- {
- 5 1 roll
- newpath 4 2 roll moveto 1 index 0 rlineto
- 0 exch rlineto neg 0 rlineto closepath
- dup cvx exec
- } repeat pop
- } __NXbdef
- /rectclip {/clip __NXDoRectOp newpath} __NXbdef
- /rectfill {gsave /fill __NXDoRectOp grestore} __NXbdef
- /rectstroke {gsave /stroke __NXDoRectOp grestore} __NXbdef
- /arct {arcto pop pop pop pop} __NXbdef
- /setbbox {pop pop pop pop} __NXbdef
- /ucache {} __NXbdef
- /ucachestatus {mark 0 0 0 0 0} __NXbdef
- /setucacheparams {cleartomark} __NXbdef
- /uappend {systemdict begin cvx exec end} __NXbdef
- /ueofill {gsave newpath uappend eofill grestore} __NXbdef
- /ufill {gsave newpath uappend fill grestore} __NXbdef
- /ustroke {
- gsave newpath
- dup length 6 eq {
- exch uappend concat
- } {
- uappend
- } ifelse
- stroke grestore
- } __NXbdef
- /__NXustrokepathMatrix dup where {pop pop} {matrix def} ifelse
- /ustrokepath {
- newpath
- dup length 6 eq {
- exch uappend
- __NXustrokepathMatrix currentmatrix exch concat
- strokepath setmatrix
- } {
- uappend strokepath
- } ifelse
- } __NXbdef
- /upath {
- [
- exch {/ucache cvx} if
- pathbbox /setbbox cvx
- {/moveto cvx} {/lineto cvx} {/curveto cvx} {/closepath cvx} pathforall
- ] cvx
- } __NXbdef
- /setstrokeadjust {pop} __NXbdef
- /currentstrokeadjust {false} __NXbdef
- /selectfont {
- exch findfont exch
- dup type /arraytype eq {
- makefont
- } {
- scalefont
- } ifelse setfont
- } __NXbdef
- /_NXCombineArrays {
- counttomark dup 2 add index
- dup length 3 -1 roll {
- 2 index length sub
- dup 4 1 roll
- 1 index exch 4 -1 roll
- putinterval exch
- } repeat
- pop pop pop
- } __NXbdef
- % simulations of NeXT additions to DPS
- /flushgraphics {} def
- /hidecursor {} def
- /obscurecursor {} def
- /revealcursor {} def
- /setcursor {4 {pop} repeat} bind def
- /showcursor {} def
- %%EndFile
- %%EndProlog
- %%BeginSetup
- /oval {
- translate scale newpath 0.5 0.5 0.5 0 360 arc
- } def /fillandframeoval {
- oval gsave eofill grestore 0 setgray matrix defaultmatrix setmatrix stroke
- } def /fillandframerectangle {
- 4 copy rectfill 0 setgray rectstroke
- } def /line {
- moveto rlineto stroke
- } def /setup {
- setgray setlinewidth setlinecap setlinejoin gsave
- } def /arrow {
- newpath moveto dup rotate -13 6 rlineto 4 -6 rlineto -4 -6 rlineto closepath gsave 0 setlinejoin stroke grestore fill neg rotate
- } def
- %%EndSetup
- 0 0 792 1008 rectclip
- 87 386 30 69 rectclip
- 87 386 30 69 rectclip
- 0 0 0 0 setup
- 14 14 95 436 oval fill
- grestore
- 0 0 0 0 setup
- 92 413 5 21 rectfill
- grestore
- 0 0 0 0 setup
- 107 413 5 21 rectfill
- grestore
- 0 0 0 0 setup
- 99 391 6 43 rectfill
- grestore
- gsave
- 0 0 792 1008 rectclip
- [1 0 0 -1 0 1008] concat
- grestore
-